#!/usr/bin/perl
use strict;
use warnings;

system("mysql -ututorial -p86249317lijie  -Dgrouplife -e \"call confirm_deliver()\"");
